home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clickx 115
/
Clickx 115.iso
/
software
/
tools
/
windows
/
tails-i386-0.16.iso
/
live
/
filesystem.squashfs
/
usr
/
share
/
perl
/
5.10.1
/
tainted.pl
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
2012-12-11
|
164 b
|
10 lines
# This subroutine returns true if its argument is tainted, false otherwise.
sub tainted {
local($@);
eval { kill 0 * $_[0] };
$@ =~ /^Insecure/;
}
1;